home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 38 / 038.d81 / custom ls boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  659b  |  21 lines
  1. 1 rem custom ls boot
  2. 10 poke53280,5:poke53281,13:ta=10
  3. 20 print"[147]"
  4. 30 print"          [195]ustomizing [204][207][193][196][211][212][193][210]"
  5. 40 print"[156]          [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  6. 60 printtab(ta)"[149]([195][149]) [195]olor [211]etup"
  7. 70 printtab(ta)"([208][149]) [208]rinter [211]etup"
  8. 72 printtab(ta)"([196][149]) [196]efault [211]etup"
  9. 80 printtab(ta)"([210][149]) [210]eturn [212]o [204][207][193][196][211][212][193][210]"
  10. 90 printtab(ta)"[208]ress [195][149], [208][149], [196][149], or [210][149]."
  11. 200 geta$:ifa$=""then200
  12. 205 ifasc(a$)>128thena$=chr$(asc(a$)-128)
  13. 210 ifa$="c"thenf$="color select":goto300
  14. 220 ifa$="p"thenf$="print select":goto300
  15. 222 ifa$="d"thenf$="default setup":goto300
  16. 230 ifa$="r"thenf$="hello connect":goto300
  17. 240 goto200
  18. 300 print"[147]        [208]lease [215]ait. [204]oading ...":poke646,peek(53281)
  19. 310 print"load"+chr$(34)+f$+chr$(34)+",8":print"run"
  20. 320 poke631,13:poke632,13:poke198,2:new
  21.